﻿Friend Interface IAccess2003_Connections

    '####################################################'
    '# Koneksi MySQL ini disesuaikan dengan             #'
    '# Referensi dari ConnectionStrings.com             #'
    '# Alamat : http://www.connectionstrings.com/access #'
    '####################################################'

#Region ".NET Framework Data Provider for OLEDB"
    '###########################################################'
    '# Type         : .NET Framework Wrapper Class Library     #'
    '# Usage        : System.Data.OleDb.OleDbConnection        #'
    '# Manufacturer : Microsoft                                #'
    '#                                                         #'
    '###########################################################'

    Function Microsoft_OLEDB_Standard(ByVal DatabasePath As String, ByVal Username As String, ByVal Password As String)
#End Region

#Region ".NET Framework Data Provider for ODBC"
    '###########################################################'
    '# Type         : .NET Framework Wrapper Class Library     #'
    '# Usage        : System.Data.Odbc.OdbcConnection          #'
    '# Manufacturer : Microsoft                                #'
    '#                                                         #'
    '###########################################################'

    Function Microsoft_ODBC_Standard(ByVal DatabasePath As String, ByVal Username As String, ByVal Password As String)
#End Region

End Interface

''' <summary>
''' Class untuk mengambil nilai jenis koneksi dari database Access 2000-2003
''' </summary>
Public Class Access2003
    Implements IAccess2003_Connections

    Public Function Microsoft_ODBC_Standard(ByVal DatabasePath As String, ByVal Username As String, ByVal Password As String) As Object Implements IAccess2003_Connections.Microsoft_ODBC_Standard
        'Zapier Integration Test : "brand new"
        _RESULT = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & DatabasePath & ";Uid=" & Username & ";Pwd=" & Password & ";"
        Return _RESULT
    End Function

    Public Function Microsoft_OLEDB_Standard(ByVal DatabasePath As String, ByVal Username As String, ByVal Password As String) As Object Implements IAccess2003_Connections.Microsoft_OLEDB_Standard
        _RESULT = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & ";User Id=" & Username & ";Password=" & Password & ";"
        Return _RESULT
    End Function
End Class
